Profile of (eval 301)[Sub/Quote.pm:3]

Filename	(eval 301)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 155709 statements in 120ms
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
38890	4	4	91.5ms	91.6ms	JSON::Schema::Modern::Document::_assert_resource_index
1	1	1	9µs	20µs	JSON::Schema::Modern::Document::BEGIN@7.139
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12.140
1	1	1	3µs	11µs	Method::Generate::Accessor::_Generated::BEGIN@24

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $isa_check_for_resource_5findex = ${$_[1]->{"\$isa_check_for_resource_5findex"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4	1	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
5	1	0s			my $default_for_resource_5findex = ${$_[1]->{"\$default_for_resource_5findex"}};
6					package JSON::Schema::Modern::Document;
7	2	32µs	2	31µs	# spent 20µs (9+11) within JSON::Schema::Modern::Document::BEGIN@7.139 which was called: # once (9µs+11µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 20µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.139 # spent 11µs making 1 call to warnings::unimport
8					# spent 91.6ms (91.5+85µs) within JSON::Schema::Modern::Document::_assert_resource_index which was called 38890 times, avg 2µs/call: # 38798 times (91.2ms+0s) by JSON::Schema::Modern::Document::resource_pairs at line 17 of (eval 296)[Sub/Quote.pm:3], avg 2µs/call # 44 times (202µs+85µs) by JSON::Schema::Modern::Document::_get_resource at line 17 of (eval 297)[Sub/Quote.pm:3], avg 7µs/call # 36 times (58µs+0s) by JSON::Schema::Modern::Document::_add_resources at line 17 of (eval 298)[Sub/Quote.pm:3], avg 2µs/call # 12 times (15µs+0s) by JSON::Schema::Modern::Document::_canonical_resources at line 17 of (eval 295)[Sub/Quote.pm:3], avg 1µs/call sub _assert_resource_index {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12.140 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 2018;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	27µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.140
18					# END quote_sub PRELUDE
19	38890	67.9ms			do {
20					my $val = exists $_[0]->{"resource_index"} ?
21					$_[0]->{"resource_index"}
22	38890	31.4ms			: do {
23	15	108µs	15	85µs	my $value = $default_for_resource_5findex->($_[0]); # spent 85µs making 15 calls to JSON::Schema::Modern::Document::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm:78], avg 6µs/call
24	107	317µs	2	19µs	# spent 11µs (3+8) within Method::Generate::Accessor::_Generated::BEGIN@24 which was called: # once (3µs+8µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($i)) and (not grep {my $v = ($i)->{$_};not((/\A(?:canonical_uri\|path\|specification_version\|vocabularies\|configs)\z/) or (((!!1)) and ((!defined($v)))))} keys %{$i}) and exists($i->{"canonical_uri"}) and do { package Type::Tiny; Scalar::Util::blessed($i->{"canonical_uri"}) and $i->{"canonical_uri"}->isa(q[Mojo::URL]) } and exists($i->{"path"}) and do { package Type::Tiny; defined($i->{"path"}) and do { ref(\$i->{"path"}) eq 'SCALAR' or ref(\(my $val = $i->{"path"})) eq 'SCALAR' } } and exists($i->{"specification_version"}) and do { package Type::Tiny; defined($i->{"specification_version"}) and do { ref(\$i->{"specification_version"}) eq 'SCALAR' or ref(\(my $val = $i->{"specification_version"})) eq 'SCALAR' } } and exists($i->{"vocabularies"}) and (do { package Type::Tiny; Ref::Util::XS::is_plain_arrayref($i->{"vocabularies"}) } and do { my $ok = 1; for my $i (@{$i->{"vocabularies"}}) { ($ok = 0, last) unless ((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $i }) }) && (do { local $_ = $i; $_->DOES('JSON::Schema::Modern::Vocabulary') })) }; $ok }) and exists($i->{"configs"}) and do { package Type::Tiny; Ref::Util::XS::is_plain_hashref($i->{"configs"}) } } }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_resource_5findex, "HashRef[Dict[canonical_uri=>InstanceOf[\"Mojo::URL\"],configs=>HashRef,path=>Str,specification_version=>Str,vocabularies=>ArrayRef[__ANON__],Slurpy[HashRef[Undef]]]]", $value, "attribute_name","resource_index","attribute_step","isa check","mgaca","0","varname","\$self->{\"resource_index\"}"); $value }; # spent 11µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24 # spent 8µs making 1 call to warnings::unimport
25	15	12µs			$_[0]->{"resource_index"} = $value
26					}
27					;
28	38890	11.1ms			exists $_[0]->{"resource_index"}
29					or Carp::croak(q{Attempted to access '}."resource_index".q{' but it is not set});
30	38890	8.88ms			$val;
31					}
32					}
33	1	1µs			$$_UNQUOTED = \&_assert_resource_index;
34					}
35	1	4µs			1;
36
37					;